################################################################################
## PageRank算法原理
## 1 PageRank，网页排名，又称网页级别、Google左侧排名或佩奇排名，是一种由搜索引擎根据网页之间相互的超链接计算的技术
## 
## 2 PageRank通过网络浩瀚的超链接关系来确定一个页面的等级。
## Google把从A页面到B页面的链接解释为A页面给B页面投票，Google根据投票来源（甚至来源的来源，即链接到A页面的页面）和投票目标的等级来决定新的等级。
## 简单的说，一个高等级的页面可以使其他低等级页面的等级提升。
################################################################################

## 第一步：加载R包
library(igraph)

## 第二步：随机生成具有10个对象的有向图
g <-random.graph.game(n=10, p.or.m=1/4, directed =TRUE)

## 第三步：画有向图
plot(g)

## 第四步：计算PageRank
pr <-page.rank(g)$vector

## 第五步：显示每个对象的 PageRank
df <-data.frame(Object =1:10,PageRank = pr)
df[order(df[,2],decreasing=T),]

